home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00097_Blender base behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1000 b   |  42 lines
  1. property pSpr, pOrigLoc, pBlenderSprite, pBlenderMaskSprite, pIngredient
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pBlenderSprite = sprite(me.spriteNum + 1)
  6.   pBlenderMaskSprite = sprite(me.spriteNum + 2)
  7.   pOrigLoc = pBlenderSprite.loc
  8. end
  9.  
  10. on mouseEnter me
  11.   if not draggingIngredient() then
  12.     showToolTip(pSpr, #blender)
  13.   end if
  14. end
  15.  
  16. on mouseLeave me
  17.   if not draggingIngredient() then
  18.     hideToolTip()
  19.   end if
  20. end
  21.  
  22. on mouseDown me
  23.   if draggingAnything() then
  24.     replaceDraggingAnything()
  25.   else
  26.     soundFX("blend_button", 0, 1)
  27.     soundFX(sendSprite(pBlenderSprite, #mGetBlendSound), 0, 0)
  28.     repeat while the stillDown
  29.       X = random(4) - 4
  30.       Y = random(4) - 3
  31.       pBlenderSprite.loc = pOrigLoc + point(X, Y)
  32.       pBlenderMaskSprite.loc = pOrigLoc + point(X, Y)
  33.       updateStage()
  34.       checkElapsedTime()
  35.     end repeat
  36.     stopSoundFX()
  37.     pBlenderSprite.loc = pOrigLoc
  38.     pBlenderMaskSprite.loc = pOrigLoc
  39.     sendSprite(pBlenderSprite, #mBlended)
  40.   end if
  41. end
  42.